          SUBROUTINE (VIEW)
** Version# 4.0001[1] - 09/26/2011 - 04:26pm - SMITJR - eclipse

          BEGIN CASE
          CASE VIEW = 1
          CASE VIEW = 2
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'CostGM$GP%'
             FOR J=1 TO 10
             PRINT @(23,J): '                              '
             NEXT J
             PRINT @(23,11):'':
          CASE VIEW = 3
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'COGS CostGM$GP%'
             FOR J=1 TO 10
             PRINT @(23,J): '                              '
             NEXT J
             PRINT @(23,11):'':
          CASE VIEW = 4
             WINDOW.CHILD 23,0,31,11,9
             PRINT @(23,0): 'CPlan$CPlan%Cost GP%':
             FOR J = 1 TO 10
             PRINT @(23,J): '                              '
             NEXT J
             PRINT @(23,11):'':
          END CASE

          RETURN

!SMITJR~09/26/11~16:26
